home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / comms / other / dc-sx107install / sx / rexx / autoadd.rexx next >
OS/2 REXX Batch file  |  1999-11-29  |  775b  |  39 lines
  1. /* ============================================ */
  2. /* === AUTO ADD SCRIPT FOR SYSTEM-X / AMIRC === */
  3. /* ============================================ */
  4. /*
  5.  
  6. To run this program, type this in shell:
  7.  
  8. rx sx:rexx/autoadd.rexx
  9.  
  10. */
  11.  
  12. OPTIONS RESULTS
  13.  
  14. IF ~Open(file, "ENV:ppp0iplocal", 'R') THEN do;exit;end
  15. ip = readln(file)
  16. Close(file)
  17.  
  18. IF ~show(ports,"SX-MCP-REXX") THEN do;done=1;end
  19. IF ~show(ports,"AMIRC.1") THEN do;done=1;end
  20.  
  21. do While done ~= 1
  22.  
  23.     ADDRESS "SX-MCP-REXX"
  24.     TOTALNODES; nodes = RC
  25.     ONLINENODES; onnodes = RC
  26.     freenodes = nodes-onnodes
  27.  
  28.     ADDRESS "AMIRC.1"
  29.     "SAY [COUNTDOWN BBS] TELNET: "ip"  "freenodes"/"nodes" nodes free."
  30.  
  31.     ADDRESS COMMAND 'Wait 30'
  32.  
  33.     IF ~show(ports,"SX-MCP-REXX") THEN do;done=1;end
  34.     IF ~show(ports,"AMIRC.1") THEN do;done=1;end
  35.  
  36. end
  37.  
  38. EXIT 0
  39.